home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 21.zip / BS1 part 21 / Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].7z / Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].adf / rexx.lzh / FontList.rexx < prev    next >
OS/2 REXX Batch file  |  1992-03-13  |  516b  |  28 lines
  1. /*
  2.     Return the fontlist with the current font at the beginning of list
  3. */
  4.  
  5. parse arg cfont
  6.  
  7. fontlist = getclip(ppuser_fontlist)
  8.  
  9. if fontlist =  '' then
  10. do
  11.    fontlist = ppm_GetTypeFaceList()
  12.    fontlist = substr(fontlist, pos('0a'x, fontlist) + 1)
  13.    call SetClip(ppuser_fontlist, fontlist)
  14. end
  15.  
  16. if cfont ~= '' then 
  17. do
  18.    stringpos = pos(cfont, fontlist)
  19.    if stringpos ~= 0 then
  20.    do
  21.         fontlist = delstr(fontlist, stringpos, length(cfont) + 1)
  22.         fontlist = cfont || '0a'x || fontlist
  23.     end
  24. end
  25.  
  26.  
  27. return(fontlist)
  28.